20 PRINTCHR$(14):PRINTCHR$(8)
30 PRINT"[147]":POKE53280,0:POKE53281,0
35 IF A=0 THEN A=1:LOAD "0:LPTR RTN",8,1
40 X=201:DIM F$(7,X),S%(20),L%(7):N=0
45 FOR I=1 TO 7:READ L%(I):NEXT
46 DATA 20,20,20,20,2,5,13
47 GOSUB 4000
50 PRINT"[197]NTER [198]ILE [206]AME: ";:MX=16:GOSUB 7000:R$=T$
60 PRINT"     [206]EW [198]ILE? <[217]/[206]>"
70 GET A$:IF A$<>"Y" AND A$<>"N" THEN 70
75 IF A$="Y" THEN 200
80 POKE53280,6:POKE53281,15
100 PRINT"[147][151][204]OADING[156]";R$
105 OPEN 15,8,15,"I0":GOSUB 3900
110 OPEN 3,8,3,"0:"+R$+",S,R"
115 GOSUB 3900
120 INPUT# 3,N
130 FOR J=1 TO 7
140 FOR M=1 TO N
150 INPUT# 3,F$(J,M)
190 NEXT M,J:CLOSE 15:CLOSE 3
200 POKE53280,4:POKE53281,15
210 PRINT"[147]":PRINTTAB(15)"[145][151][205][197][206][213][146]"
220 PRINT"[151][193]-[218] [193]LPHABETICAL [208]AGES"
230 PRINT"[151][198]1  [198]ORWARD [211]CAN  [151]_ [210]EVERSE [211]CAN"
240 PRINT"[151][198]3  [198]IND AN [197]NTRY"
250 PRINT"[151][198]4  [197]NTER [201]NFORMATION"
260 PRINT"[151][198]5  [208]HONE [201]NDEX  ([151]# [208]RINT)"
270 PRINT"[151]*   [211]ELECT [206]EW [198]ILE"
280 PRINT"[151]^   [210]ENAME [198]ILE"
290 PRINT"[151][198]6  [208]RINT"
300 PRINT"[151][198]7  [211]AVE"
310 PRINT"[151][198]2  [195]HANGE AN [197]NTRY"
320 PRINT"[151][196][197][204] [197]RASE AN [197]NTRY"
325 PRINT"[151][198]8  [213]P[212]IME [205]ENU"
330 PRINT"[151]----------------------------------------"
340 PRINT"[151][198]ILE [211]ELECTED:"
350 PRINTTAB(16)"[145][156]";R$
360 PRINT"[151][197]NTRIES:[156]"N"[157] "
365 NN$="":ST$=""
370 GETA$:IFA$=""THEN370
380 IFA$="_"THENAB=N:GOTO1020
390 IFA$="[133]"THENAB=1:GOTO1020
400 IFA$="[138]"THEN530
410 IFA$="[136]"THEN1210
420 IFA$="[135]"THEN1370
430 IFA$="*"THEN3600
440 IFA$="^"THEN1800
445 IFA$="#"THENGOSUB6000
450 IFA$="[137]"THEN2470
460 IFA$="[139]"THEN2990
470 IFA$="[134]"THEN2530
480 IFA$=CHR$(20)THEN2690
490 IFA$="[147]"THEN3440
495 IF A$="[140]" THEN 3700
500 IX=ASC(A$)-64
510 IFNOT(IX<1ORIX>26)THENX$=CHR$(ASC(A$)+128):GOTO1920
520 GOTO 370
530 IFN>=X-1THEN200
535 NN=N
540 N=N+1
550 PRINT"[151][147][197]NTER [201]NFORMATION[146]"
560 PRINT"[197]NTRY #";N
570 PRINT" [204]AST [206]AME"
580 PRINT"[198]IRST [206]AME"
590 PRINT"   [193]DDRESS"
600 PRINT" [195]ITY/[212]OWN"
610 PRINT"     [211]TATE"
620 PRINT"  [218]IP [195]ODE"
630 PRINT" [208]HONE [206]O."
640 PRINT"":FOR J=1 TO 7
650 PRINT TAB(11);:MX=L%(J):GOSUB 7000
660 IF T$="" THEN T$="--"
670 F$(J,N)=T$:NEXT J
790 PRINTTAB(8)"[151][193]NOTHER [197]NTRY?[146]  [217]/[206]
800 [153][163]8)"ATNWAIT ATNBORT  (null)WAIT (null)E-VALNTER"
810 [161]A$
820 [139]A$[179][177]"Y"[175]A$[179][177]"N"[175]A$[179][177]"A"[175]A$[179][177]"R"[167]810
830 [139]A$[178]"A"[167]M[178]N:[141]2830:[141]880:[137]200
840 [139]A$[178]"R"[167]M[178]N:[141]2830
850 [139]A$[178]"N"[167][141]880:[137]200
860 [139]N[177][178]X[171]1[167][153][163]12)"ASCRIGHT$(null)VAL ASC(null)(null)(null)":[129]Z[178]1[164]2000:[130]:[141]880:[137]200
870 [137]540
880 [139]N[179]2[167][142]
885 [139]NN[178]N[167]NN[178]N[171]1:[142]
890 [153]"LOADPOKEATNRRANGING (null)EW VALNTRIES ATNLPHABETICALLY"
895 S%(1)[178]1:S%(2)[178]N:P[178]2
900 L[178]S%(P):P[178]P[171]1:F[178]S%(P):P[178]P[171]1:M[178]F
905 J[178]L:D$[178]F$(1,(F[170]L)[173]2)
910 [139] F$(1,M)[179]D$[167]M[178]M[170]1:[137]910
915 [139] F$(1,J)[177]D$[167]J[178]J[171]1:[137]915
920 [139]M[179][178]J[167][151]53280,4:[141]970
925 [151]53280,6:[139]M[179][178]J[167]910
930 [139]F[179]J[167]P[178]P[170]1:S%(P)[178]F:P[178]P[170]1:S%(P)[178]J
940 F[178]M:[139]F[179]L[167]905
950 [139]P[179][177]0[167]900
960 [142]
970 AA$[178]F$(1,M):BB$[178]F$(2,M):CC$[178]F$(3,M):DD$[178]F$(4,M)
975 EE$[178]F$(5,M):FF$[178]F$(6,M):GG$[178]F$(7,M)
980 [129] K[178]1 [164] 7:F$(K,M)[178]F$(K,J):[130]
1000 F$(1,J)[178]AA$:F$(2,J)[178]BB$:F$(3,J)[178]CC$:F$(4,J)[178]DD$
1005 F$(5,J)[178]EE$:F$(6,J)[178]FF$:F$(7,J)[178]GG$
1010 M[178]M[170]1:J[178]J[171]1:[142]
1020 [139]N[178]0[167]200
1030 [129]M[178]AB[164]N
1040 [141]2880
1050 [151]53280,6:[153]"POKEASC1WAIT ASCORWARD (null)CAN  _WAIT (null)EVERSE (null)CAN"
1060 [139]M[177]N[167]200
1070 [153]"ASC5WAIT RIGHT$NDEX"
1080 [153]"ASC7WAIT (null)ETURN TO (null)AIN (null)ENU"
1090 [153]"ASC2WAIT (null)AKE A LENHANGE"
1100 [153]"STR$VAL(null)WAIT VALRASE VALNTRY      ASC8WAIT (null)P(null)IME
1110 PRINT"[198]6[146] [208]RINT [197]NVELOPE   +[146] [208]RINT [204]ABELS"
1120 GETA$:IFA$=""THEN1120
1130 IFA$="_"THENM=M-2:IFM<0THEN200
1140 IFA$="[135]"THEN1370
1150 IFA$="[136]"THEN200
1155 IFA$="[138]"THEN530
1160 IFA$="[137]"THENGOSUB2280:M=M-1
1170 IFA$=CHR$(20)THENGOSUB2750
1175 IFA$="[140]"THEN 3700
1180 IFA$="[139]"THENGOSUB3190
1190 IFA$="+"THENGOSUB5000:GOSUB3280:M=M-1
1200 NEXT:GOTO200
1210 IFN=0THEN200
1220 PRINT"[147][151][217]OU SELECTED [211]AVE, ARE YOU SURE?"
1230 PRINTTAB(16)"[217]/[206]
1240 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]1240
1260 [139]A$[178]"N"[167]200
1270 [153]"LOADPOKE(null)AVINGCLR";R$
1275 [159] 15,8,15,"I0":[141] 3900
1280 [159] 4,8,4,"@0:"[170]R$[170]",S,W"
1285 [141] 3900
1290 [152] 4,N
1300 [129] J[178]1 [164] 7
1310 [129] M[178]1 [164] N
1320 [152] 4,F$(J,M)
1360 [130] M,J:[160] 4:[160] 15:[137]200
1370 [139] N[178]0[167]200
1380 [153]"LOAD":[151]53280,9:[151]53281,15:[141]1740
1390 XX[178]1:YY[178]15
1400 [139]YY[177]N[167]YY[178]N
1410 [129]M[178]XX[164]YY:[139]M[177]X[171]1[167]200
1420 [153]"POKE";M
1430 [153]"ON"[200](F$(1,M),14)
1440 [153][163]20)"POKEON";[200](F$(7,M),19):[130]
1450 [161]A$:[139]A$[178]""[167]1450
1460 [139]A$[178]"READ"[167]1540
1470 [139]A$[178]"LET"[167]200
1475 [139]A$[178]"#"[167][141]6000
1480 [139]A$[178]"DIM"[167]1590
1490 [139]A$[178]"GOTO"[167]1630
1500 [139]A$[178]"RESTORE"[167]1670
1510 [139]A$[178]"RUN"[167][151]53280,6:[137]530
1520 IX[178][198](A$)[171]64
1530 [139] [168](IX[179]1[176]IX[177]26)[167]X$[178][199]([198](A$)[170]128):[137]1920
1540 XX[178]XX[170]15:YY[178]YY[170]15
1550 [139]XX[177][178]X[171]1[167]200
1560 [139]YY[171]15[177][178]N[167]200
1570 [153]"LOAD":[141]1740
1580 [137]1400
1590 [141]1720
1600 [153]"POKE(null)ATCH (null)HICH RIGHT$NDEX (null)UMBER:WAIT ";:MX[178]3:[141] 7000:K[178][197](T$)
1610 [139] K[179]1[176]K[177]N[167]200
1620 [153]"LOAD":[129]M[178]K[164]N:[151]53280,6:[137]1040
1630 [141]1720
1640 [153]"POKEVALNTER RIGHT$NDEX (null)UMBER FOR LENHANGE:WAIT ";:MX[178]3:[141] 7000:K[178][197](T$)
1650 [139]K[179]1[176]K[177]N[167]200
1660 [153]"LOAD":[129]M[178]K[164]N:[141]2280:[137]200
1670 [141]1720
1680 [133]"POKEVALNTER RIGHT$NDEX (null)UMBER TO VALRASE:WAIT ";:MX[178]3:[141] 7000:K[178][197](T$)
1690 [139] K[179]1[176]K[177]N[167]200
1700 [129] M[178]K [164] N
1710 [141]2270:[137]200
1720 [153]""
1730 [142]
1740 [153]"ASC5-LENONTINUE          ASC4-STR$ATA VALNTRY"
1750 [153]"ASC7-(null)AIN (null)ENU         ASC2-LENHANGE VALNTRY"
1760 [153]"ASC3-(null)EAD VALNTRY        ASC8-VALRASE VALNTRY"
1770 [153]"POKE---------------------------------------"
1780 [153]"     (null)AME           (null)HONE"
1790 [142]
1800 [139]N[178]0[167]200
1810 [153]"LOADPOKEATNRE YOU SURE YOU WANT TO (null)ENAME"
1820 [153][163]13)"THIS ASCILE?"
1830 [153][163]17)"(null)/(null)
1840 GETA$:IFA$<>"Y"ANDA$<>"N"THEN1840
1850 IFA$="N"THEN200
1860 PRINT"[151][197]NTER [206]EW [198]ILE [206]AME: ";:MX=16:GOSUB 7000:V$=T$
1870 PRINT"[147][151][196]O YOU WANT THIS EXECUTED ON DISK? [217]/[206]"
1880 GETA$:IFA$<>"Y"ANDA$<>"N"THEN1880
1890 IFA$="N"THENR$=V$:GOTO200
1900 OPEN15,8,15:PRINT#15,"R0:"+V$"="+R$
1910 GOSUB 3900:R$=V$:CLOSE15:GOTO200
1920 IFN=0THEN 3500
1930 PRINT"[147][151]":POKE53280,0:POKE53281,0
1940 IF LEFT$(F$(1,INT(N/1.3)),1)<X$THENM=INT(N/1.3):B=0:GOTO1970
1950 IF LEFT$(F$(1,INT(N/2.3)),1)<X$THENM=INT(N/2.3):B=0:GOTO1970
1960 M=1:B=0
1970 IF M=NANDLEFT$(F$(1,N),1)<>X$THEN200
1975 IFLEFT$(F$(1,M),1)>X$THEN3500
1980 IFLEFT$(F$(1,M),1)=X$THEN2010
1990 IF B<>0 AND LEFT$(F$(1,M+1),1)<>X$ THEN GOSUB2250:GOTO2200
2000 GOTO2110
2010 B=B+1
2020 PRINT"[158]"M"[157]) "
2030 PRINT"[154]";
2040 PRINTTAB(5)"[145]"F$(1,M)", "F$(2,M)
2050 PRINTTAB(5)F$(3,M)
2060 PRINTTAB(5)F$(4,M)
2070 PRINTTAB(5)F$(5,M)", "F$(6,M)
2080 PRINTTAB(5)"[208]HONE: ";F$(7,M)
2090 PRINT""
2100 IFB=3ORLEFT$(F$(1,M),1)<>LEFT$(F$(1,M+1),1)THENGOSUB2250:GOTO2120
2110 M=M+1:GOTO1970
2120 IFLEFT$(F$(1,M+1),1)<>LEFT$(F$(1,M),1)THEN2200
2130 PRINT"[159](";X$;")-[205][207][210][197] [197][206][212][210][201][197][211]   ([210][197][212][213][210][206])-[205][193][201][206] [205][197][206][213]"
2140 GETA$:IFA$=""THEN2140
2150 IFA$="[137]"THENGOSUB2630:GOTO200
2160 IFA$="[140]"THENGOSUB2660:GOTO200
2170 IFA$=CHR$(13)THEN200
2180 B=0:M=M+1
2190 PRINT"[147]":GOTO1970
2200 PRINT"[159][206]O MORE ENTRIES: [208][210][197][211][211] [193][206][217][160][203][197][217]"
2210 GETA$:IFA$=""THEN2210
2220 IFA$="[137]"THENGOSUB2630:GOTO200
2230 IFA$="[140]"THENGOSUB2660:GOTO200
2240 GOTO200
2250 PRINT"[155]([198]2 - [195]HANGE)  ([198]8 - [197]RASE)"
2260 RETURN
2270 PRINT"[147]":GOSUB2880:GOSUB2770:RETURN
2280 POKE53280,2:PRINT"[147][151][197]NTRY #";M
2285 PRINT"[204]AST [206]AME[151]  ";F$(1,M)
2290 ST$=F$(1,M)
2300 PRINT"[198]IRST [206]AME[151] ";F$(2,M)
2310 PRINT"[193]DDRESS[151]    ";F$(3,M)
2320 PRINT"[195]ITY/[212]OWN[151]  ";F$(4,M)
2330 PRINT"[211]TATE[151]      ";F$(5,M)
2340 PRINT"[218]IP [195]ODE[151]   ";F$(6,M)
2350 PRINT"[208]HONE [206]O.[151]  ";F$(7,M)
2360 PRINT"[217]OU WISH TO [195]HANGE THIS [197]NTRY [217]/[206]?"
2362 GETA$:IFA$=""THEN2362
2364 IFA$="N"THENRETURN
2365 F$(1,M)="--"
2366 POKE53280,6:PRINT"[145][212]YPE [206]EW [201]NFORMATION OR [208]RESS [210][197][212][213][210][206]"
2370 PRINT"[204]AST [206]AME[151]  ";:MX=L%(1):GOSUB 7000:F$(1,M)=T$
2375 F$(2,M)="--"
2380 PRINT"[198]IRST [206]AME[151] ";:MX=L%(2):GOSUB 7000:F$(2,M)=T$
2385 F$(3,M)="--"
2390 PRINT"[193]DDRESS[151]    ";:MX=L%(3):GOSUB 7000:F$(3,M)=T$
2395 F$(4,M)="--"
2400 PRINT"[195]ITY/[212]OWN[151]  ";:MX=L%(4):GOSUB 7000:F$(4,M)=T$
2405 F$(5,M)="--"
2410 PRINT"[211]TATE[151]      ";:MX=L%(5):GOSUB 7000:F$(5,M)=T$
2415 F$(6,M)="--"
2420 PRINT"[218]IP [195]ODE[151]   ";:MX=L%(6):GOSUB 7000:F$(6,M)=T$
2425 F$(7,M)="--"
2430 PRINT"[208]HONE [206]O.[151]  ";:MX=L%(7):GOSUB 7000:F$(7,M)=T$
2450 IF F$(1,M)<>ST$ THENGOSUB880:M=N+1
2460 RETURN
2470 IFN=0THEN200
2480 PRINT"[147][151][197]NTER [204]AST [206]AME: ";:MX=L%(1):GOSUB 7000:NN$=T$
2490 FORM=1TON
2500 IFNN$=F$(1,M)THENGOSUB2280
2510 NEXTM
2520 M=0:GOTO200
2530 IFN=0THEN200
2540 NN$=""
2550 PRINT"[147][151][197]NTER [198]IRST 3 [204]ETTERS OF [204]AST [206]AME: ";:MX=3:GOSUB 7000
2555 NN$=T$
2560 IFNN$=""THEN200
2570 FORM=1TON+1
2580 IF NN$=LEFT$(F$(1,M),3)THEN1040
2590 NEXT
2600 PRINT"[147][206]O MORE [206]AMES [211]TARTING WITH[151] ";NN$
2610 FORZZ=1TO2000:NEXT
2620 NN$="":GOTO200
2630 PRINT"[153][197]NTER [201]NDEX [206]UMBER TO [195]HANGE";:MX=3
2635 GOSUB 7000:M=VAL(T$)
2640 IFM=0ORM>NTHEN RETURN
2650 POKE53280,6:POKE53281,15:GOTO2280
2660 PRINT"[153][197]NTER [201]NDEX [206]UMBER TO [197]RASE";:MX=3
2665 GOSUB 7000:M=VAL(T$)
2670 IFM=0ORM>NTHEN RETURN
2680 POKE53280,6:POKE53281,15:GOSUB2270:RETURN
2690 IFN=0THEN200
2700 PRINT"[147][151][197]NTER [206]AME TO [197]RASE: ";:MX=L%(1):GOSUB 7000:NN$=T$
2710 FORM=1TON
2720 IF NN$=F$(1,M)THENGOSUB2270
2730 NEXTM
2740 GOTO200
2750 IFN=0THENRETURN
2760 PRINT"[147]"
2770 PRINT"[151][193]RE YOU SURE YOU WANT TO ERASE THIS?"
2780 PRINTTAB(18)"[217]/[206]
2790 [161]A$
2800 [139]A$[179][177]"N"[175]A$[179][177]"Y"[167]2790
2810 [139]A$[178]"N"[167][142]
2820 [153]"LOADPOKE(null)PDATINGCLOSEASCILE"
2830 [129] J[178]1 [164] 7
2840 [129]V[178]M[164]N
2850 F$(J,V)[178]F$(J,V[170]1)
2860 [130] V,J
2870 N[178]N[171]1:M[178]M[171]1:[142]
2880 [139]M[177]N[167][142]
2890 [153]"LOADPOKEVALNTRY #";M
2900 [153]"(null)AST (null)AME: ";F$(1,M)
2910 [153]"ASCIRST (null)AME:";F$(2,M)
2920 [153]"ATNDDRESS:   ";F$(3,M)
2930 [153]"LENITY/(null)OWN: ";F$(4,M)
2940 [153]"(null)TATE:     ";F$(5,M)
2950 [153]"(null)IP LENODE:  ";F$(6,M)
2960 [153]"(null)HONE (null)O.: ";F$(7,M)
2970 [153]"POKE----------------------------------------"
2980 [142]
2990 [139]N[178]0[167]200
3000 [153]"LOADPOKE(null)RINT ASCILE      (ASC)"
3010 [153]"POKE(null)RINT (null)ABELS    ((null))"
3015 [153]"POKE(null)ETURN TO (null)ENU  ((null))"
3020 [161]A$:[139]A$[178]""[167]3020
3030 [139]A$[178]"M"[167]200
3032 [139]A$[178]"L"[167][141]5000:[129]M[178]1[164]N:BB[178]1:[141]3310:[130]M:[137]200
3034 [139]A$[178]"F"[167]3040
3036 [137]3020
3040 [151] 780,4:[151] 782,7
3045 [158] 828:[139] [194](783) [175] 1 [167] [160] 4:[137] 3800
3050 [152]4,[199](13)
3060 [152]4,[199](16)"27";"ASCRIGHT$(null)VAL(null)ATN(null)VAL: ";R$
3070 [152]4,[199](13)
3080 [152]4,[199](10)
3090 SP[178]1
3100 [129]M[178]1[164]N
3110 [152]4,"      ";F$(1,M)", ";F$(2,M)
3120 [152]4,"      ";F$(3,M)", ";F$(4,M)
3130 [152]4,"      ";F$(5,M)", ";F$(6,M)
3140 [152]4,"      (null)LEFT$(null)(null)VAL: ";F$(7,M)
3150 [152]4,[199](13)
3160 SP[178]SP[170]1:[139]SP[178]9[167][152]4,[199](12):SP[178]0
3170 [130]
3180 [160]4,4:[137]200
3190 [159]4,4,7
3200 [139] F$(2,M)[178]"--"[167][152]4,"                      ";F$(1,M):[137]3220
3210 [152]4,"                      ";F$(2,M)" ";F$(1,M)
3220 [152]4,"                      ";F$(3,M)
3230 [152]4,"                      ";F$(4,M)", ";F$(5,M)
3240 [139] F$(6,M)[178]"--"[167]3260
3250 [152]4,"                      ";F$(6,M)
3260 M[178]M[171]1:[160]4:[142]
3270 [129]CC[178]1[164]BB
3280 [153]"LOAD"
3290 [153]"POKELEFT$OW MANY (null)ABELS: ";:MX[178]3:[141] 7000:BB[178][197](T$)
3300 [139]BB[179]1[176]BB[177]50[167][142]
3310 [151]  780,4:[151] 782,7
3315 [158] 828:[139] [194](783) [175] 1 [167] [160] 4:[137] 3800
3320 [129]CC[178]1[164]BB
3330 [139] F$(2,M)[178]"--"[167][152]4,"   ";F$(1,M):[137]3350
3340 [152]4,"   ";F$(2,M)" ";F$(1,M)
3350 [152]4,"   ";F$(3,M)
3360 [152]4,"   ";F$(4,M)", ";F$(5,M)
3370 [139]F$(6,M)[178]"--"[167][152]4:[137]3390
3380 [152]4,"   ";F$(6,M)
3390 [152]4
3400 [139]LS[178]1[167][152]4
3405 [139]LS[178]2[167][152]4:[152]4
3407 [139]LS[178]3[167][152]4:[152]4:[152]4
3410 [152]4
3420 [130]:[160]4:[142]
3440 [158]2048
3500 [153]"LOADCONT       (null)HERE IS (null)O ASCILE IN (null)EMORY"
3510 [153]"            <(null)RESS ATNNY (null)EY>
3520 GET A$:IF A$="" THEN 3520
3530 GOTO 200
3600 PRINT"[147][151]          [211]ELECT ANOTHER FILE"
3610 PRINT"          [193]RE YOU [211]URE? <[217]/[206]>"
3620 GET A$:IF A$<>"Y" AND A$<>"N" AND A$<>"[140]" THEN 3620
3630 IF A$="N" THEN 200
3640 IF A$="[140]" THEN SYS (8*4096)+4
3650 POKE 53281,0:PRINT"[147]":R$="":N=0:GOTO 50
3700 PRINT"[147]             [193]RE YOU SURE?"
3710 PRINT"                 <[217]/[206]>
3720 [161] A$:[139] A$[179][177]"Y" [175] A$[179][177]"N" [167] 3720
3730 [139] A$[178]"N" [167] 200
3740 [158] (8[172]4096)[170]4
3800 [153]"LOAD       STR$EVICE (null)OT (null)RESENT VALRROR!"
3810 [153]"POKE      LENHECK (null)RINTER AND RIGHT$NTERFACE"
3820 [153]"             (null)RESS ATNNY (null)EY"
3830 [161] A$:[139] A$[178]"" [167] 3830
3840 [137] 200
3900 [132]15,ER$,EM$,ET$,ES$
3910 [139] ER$[178]"00" [167] [142]
3920 [153]"LOAD              STR$ISK VALRROR!"
3925 [160] 4:[160] 3:[160] 2:[160] 15
3930 [153]"POKE      "ER$", "EM$","ET$","ES$
3940 [153]"         <ATNNY (null)EY TO LENONTINUE>"
3950 [161] A$:[139] A$[178]"" [167] 3950
3960 [137] 200
4000 [153]"PRINT            64 (null)AILING (null)IST"
4010 [153]"          (C)1987 (null)AUL PEEKEDDOWS"
4020 [153]"          ATNLL (null)IGHTS (null)ESERVED"
4030 [153]"";:[129] I[178]1 [164] 10
4035 [153]" ";
4040 [129] J[178]1 [164] 38
4050 [153]" ";
4060 [130]:[153]:[130]
4100 [153]"(null)P(null)IME"[163]33)"SINSINSINSINSIN"
4110 [153]"(null)HE STR$ISK (null)ONTHLY"[163]33)"SIN22CSIN"
4120 [153][163]33)"SINSINSINSINSIN"
4125 [153]"<ATNNY (null)EY TO LENONTINUE>"
4130 [153]"CLR (null)UBLISHED BY (null)OFTDISK (null)UBLISHING, RIGHT$NC."
4200 [161] A$:[139] A$[178]"" [167] 4200
4210 [153]"LOAD":[142]
5000 [153]"LOAD"
5010 [153][199](142)
5020 [153][163]5)"SELECT LABEL SIZE"
5030 [153][163]5)"POKEORLENLENLENLENLENLENLENLENLENLENLEN^ _^"
5040 [153][163]5)"(null)           (null)  (null)"
5060 [153][163]5)"/LENLENLENLENLENLENLENLENLENLENLENEXP  (null) MEASURE DISTANCE"
5070 [153][163]5)"               (null)"
5080 [153][163]5)"ORLENLENLENLENLENLENLENLENLENLENLEN^ _EXP"
5090 [153][163]5)"(null)           (null)"
5100 [153][163]5)"/LENLENLENLENLENLENLENLENLENLENLENEXP"
5105 [153][163]5)"ENTER"
5110 [153][163]5)"POKE1) ONE INCH"
5120 [153][163]5)"2) 1 5/32 INCHES"
5130 [153][163]5)"3) 1 5/16 INCHES"
5140 [153][163]5)"4) 1 1/2 INCHES"
5150 [161]A$:[139]A$[178]""[167]5150
5160 [139]A$[178]"1"[167]LS[178]0
5170 [139]A$[178]"2"[167]LS[178]1
5180 [139]A$[178]"3"[167]LS[178]2
5190 [139]A$[178]"4"[167]LS[178]3
5200 [153]"LOAD(null)RINTING (null)ABLES":[142]
6000 [151] 780,4:[151] 782,7:[158]828
6005 [139] [194](783) [175] 1 [167] [160] 4:[137] 3800
6010 [152]4,[199](13)
6020 [152]4,[199](16)"27";"ASCRIGHT$(null)VAL(null)ATN(null)VAL: ";R$
6030 [152]4,[199](13)
6040 [152]4,[199](10)
6050 SP[178]1
6060 [129]M[178]1[164]N
6070 [152]4,"     ";F$(1,M)", ";F$(2,M);
6080 [152]4,[166]35[171][195](F$(1,M)[170]F$(2,M)));F$(7,M)
6090 SP[178]SP[170]1:[139]SP[178]45[167][152]4,[199](12):SP[178]0
6100 [130]
6110 [160]4,4:[142]
7000 T$[178]"":[153] "TO";
7010 [161] A$:[139] A$[178]"" [167] 7010
7012 [139] A$[178]"RESTORE" [167] 3700
7015 A[178][198](A$)
7020 [139] A[178]13 [167] [153]"CMD ":[142]
7030 [139] A[178]20 [175] [195](T$)[178]0 [167] 7010
7040 [139] A[178]20 [167] T$[178][200](T$,[195](T$)[171]1):[153]"CMDCMD  CMDCMDTO";:[137] 7010
7045 [139] [195](T$)[178]MX [167] 7010
7050 [139] A[179]32 [176] A[177]218 [167] 7010
7060 [139] A[177]95 [175] A[179]193 [167] 7010
7070 [139] A[178]34 [176] A[178]38 [176] A[178]44 [167] 7010
7080 [153]"CMD"A$"TO";
7090 T$[178]T$[170]A$
7099 [137] 7010